home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / EventMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  6.1 KB  |  149 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. MODULE MacEventMgr;
  21. (* cp 
  22.     OSEventManager partially included here
  23.     GetNextEvent not supported anymore (obsolete)
  24.     app4Evt (obsolete) replaced by osEvt
  25.     GetSpecificHighLevelEvent renamed to GetSpecificEvent
  26.     IMPORT SYSTEM, MacTypes;
  27.     CONST
  28.         nullEvent* = 0;
  29.         mouseDown* = 1;
  30.         mouseUp* = 2;
  31.         keyDown* = 3;
  32.         keyUp* = 4;
  33.         autoKey* = 5;
  34.         updateEvt* = 6;
  35.         diskEvt* = 7;
  36.         activateEvt* = 8;
  37.         networkEvt* = 10;
  38.         driverEvt* = 11;
  39.         app1Evt* = 12;
  40.         app2Evt* = 13;
  41.         app3Evt* = 14;
  42.         osEvt* = 15;
  43.         kHighLevelEvent* = 23;
  44.         charCodeMask* = 000000FFH;
  45.         keyCodeMask* = 0000FF00H;
  46.         everyEvent* = -1;
  47.         mDownMask* = 2;
  48.         mUpMask* = 4;
  49.         keyDownMask* = 8;
  50.         keyUpMask* = 16;
  51.         autoKeyMask* = 32;
  52.         updateMask* = 64;
  53.         diskMask* = 128;
  54.         activeMask* = 256;
  55.         highLevelEventMask* = 1024;
  56.         resumeFlag* = 1;
  57.         convertClipboardFlag* = 2;
  58.         suspendResumeMessage* = 01H;
  59.         mouseMoveMessage* = 0FAH;
  60.         UNTAGGED = 1;
  61.         CODE = 1; NOSTKCHK = 4;
  62.     TYPE
  63.         EventRecord* = RECORD (MacTypes.Data)
  64.             what*: INTEGER;
  65.             message*: LONGINT;
  66.             when*: LONGINT;
  67.             where*: MacTypes.Point;
  68.             modifiers*: INTEGER
  69.         END;
  70.         KeyMap* = ARRAY [UNTAGGED] 4 OF SET;
  71.         HighLevelEventMsg* = RECORD (MacTypes.Data)
  72.             headerLength*: INTEGER;
  73.             version*: INTEGER;
  74.             reserved1: LONGINT;
  75.             theMsgEvent*: EventRecord;
  76.             userRefCon*: LONGINT;
  77.             postingOptions*: LONGINT;
  78.             msgLength*: LONGINT
  79.         END;
  80.         TargetID* = RECORD (MacTypes.Data)
  81.             sessionID*: LONGINT;
  82.             name: ARRAY [UNTAGGED] 72 OF CHAR;
  83.             location: ARRAY [UNTAGGED] 104 OF CHAR;
  84.             recvrName: ARRAY [UNTAGGED] 72 OF CHAR
  85.         END;
  86.     PROCEDURE [CODE] acceptHighLevelEvent (VAR sender: TargetID; VAR msgRefcon: LONGINT;
  87.                         msgBuff: MacTypes.Ptr; VAR msgLen: LONGINT;
  88.                         n: INTEGER): MacTypes.OSErr 0A8H, 08FH;
  89.     PROCEDURE [CODE] getSpecificEvent (aFilter: MacTypes.ProcPtr; yourDataPtr: MacTypes.ProcPtr;
  90.                         VAR err: MacTypes.OSErr; n: INTEGER): BOOLEAN 0A8H, 08FH;
  91.     PROCEDURE [CODE] postHighLevelEvent (theEvent: EventRecord; receiverID: MacTypes.Ptr;
  92.                         msgRefcon: LONGINT; msgBuff: MacTypes.Ptr; msgLen: LONGINT;
  93.                         postingOptions: LONGINT; n: INTEGER): MacTypes.OSErr 0A8H, 08FH;
  94.     (** Accessing Events **)
  95.     PROCEDURE [CODE] WaitNextEvent* (mask: INTEGER; VAR event: EventRecord;
  96.                                     sleep: LONGINT; mouseRgn: MacTypes.RgnHandle): BOOLEAN 0A8H, 60H;
  97.     PROCEDURE [CODE] EventAvail* (eventMask: INTEGER; VAR theEvent: EventRecord): BOOLEAN 0A9H, 071H;
  98.     PROCEDURE [NOSTKCHK] AcceptHighLevelEvent* (VAR sender: TargetID; VAR msgRefcon: LONGINT;
  99.                         msgBuff: MacTypes.Ptr; VAR msgLen: LONGINT): MacTypes.OSErr;
  100.     BEGIN
  101.         RETURN acceptHighLevelEvent(sender, msgRefcon, msgBuff, msgLen, 033H)
  102.     END AcceptHighLevelEvent;
  103.     PROCEDURE [NOSTKCHK] GetSpecificEvent* (aFilter: MacTypes.ProcPtr; yourDataPtr: MacTypes.ProcPtr;
  104.                         VAR err: MacTypes.OSErr): BOOLEAN;
  105.     BEGIN
  106.         RETURN getSpecificEvent(aFilter, yourDataPtr, err, 045H)
  107.     END GetSpecificEvent;
  108.     (** Reading the Mouse **)
  109.     PROCEDURE [CODE] GetMouse* (VAR mouseLoc: MacTypes.Point) 0A9H, 072H;
  110.     PROCEDURE [CODE] Button* (): BOOLEAN 0A9H, 074H;
  111.     PROCEDURE [CODE] StillDown* (): BOOLEAN 0A9H, 073H;
  112.     PROCEDURE [CODE] WaitMouseUp* (): BOOLEAN 0A9H, 077H;
  113.     (** Reading the Keyboard and Keypad **)
  114.     PROCEDURE [CODE] GetKeys* (VAR theKeys: KeyMap) 0A9H, 076H;
  115.     (** Posting and Removing Events **)
  116.     PROCEDURE [CODE] PostEvent* (eventCode: INTEGER; eventMsg: LONGINT): MacTypes.OSErr 0A0H, 02FH;
  117.     PROCEDURE [CODE] FlushEvents* (eventMask, stopMask: INTEGER) 0A0H, 032H;
  118.     PROCEDURE [NOSTKCHK] PostHighLevelEvent* (theEvent: EventRecord; receiverID: MacTypes.Ptr;
  119.                         msgRefcon: LONGINT; msgBuff: MacTypes.Ptr; msgLen: LONGINT;
  120.                         postingOptions: LONGINT): MacTypes.OSErr;
  121.     BEGIN
  122.         RETURN postHighLevelEvent(theEvent, receiverID, msgRefcon, msgBuff, msgLen,
  123.                         postingOptions, 034H)
  124.     END PostHighLevelEvent;
  125.     (** Misceallaneous **)
  126.     PROCEDURE [CODE] TickCount* (): LONGINT 0A9H, 075H;
  127.     PROCEDURE [NOSTKCHK] GetDblTime* (): LONGINT;
  128.         VAR t: LONGINT;
  129.     BEGIN
  130.         SYSTEM.MOVE(02F0H, SYSTEM.ADR(t), 4);
  131.         RETURN t
  132.     END GetDblTime;
  133.     PROCEDURE [CODE] CallDebugger* 04EH, 041H;
  134.     PROCEDURE [CODE] CheckUpdate* (VAR event: EventRecord): BOOLEAN 0A9H, 011H;
  135.     PROCEDURE [CODE] Debugger* () 0A9H, 0FFH;
  136.     PROCEDURE [CODE] DebugStr* (aStr: MacTypes.Str255) 0ABH, 0FFH;
  137. END MacEventMgr.
  138. TextControllers.StdCtrlDesc
  139. TextControllers.ControllerDesc
  140. Containers.ControllerDesc
  141. Controllers.ControllerDesc
  142. TextRulers.StdRulerDesc
  143. TextRulers.RulerDesc
  144. TextRulers.StdStyleDesc
  145. TextRulers.StyleDesc
  146. TextRulers.AttributesDesc
  147. Geneva
  148. Documents.ControllerDesc
  149.